home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ForCLI / infolist.lha / Infolist / rexxc / dopus / InfoList_select.dopus < prev    next >
Encoding:
Text File  |  1995-01-05  |  1.2 KB  |  54 lines
  1. /*
  2.  $VER: InfoList_select.dopus 2.92 (95.01.04 18:55:58)
  3.  
  4.  Funktion: Dies ist ein Rexx-Script für DOpus4.0+. Mit Hilfe von InfoList
  5.    können Files (de)selectiert werden, die einem bestimmten Filetyp
  6.    entsprechen. Siehe Infolist.dok.
  7.  
  8.  Benötigt werden:
  9.    InfoList
  10.    DOpus 4.0+ runing
  11.    temporäres Dir "T:"
  12.  
  13.  Aufruf: RX InfoList_select.DOPUS
  14.  
  15.  Programmierer: Lutz Hanke, Dorfstr. 43, 01825 Breitenau, Germany
  16. */
  17.  
  18.  
  19. ADDRESS 'DOPUS.1'
  20. OPTIONS RESULTS
  21.  
  22. 'Status 3'                /* aktives Fenster feststellen */
  23. active = RESULT
  24. inactive = active && 1            /* einfache Berechnung des Inaktiven */
  25.  
  26. 'status 13' active
  27. from_path = result
  28.  
  29.  
  30. 'getstring "Bitte die Selectparameter eingeben' '0a'X ||,
  31.   'z.B. ANIM IFF GRAFIC ICON MUSIC PACK PROG TXT UNKNOWN oder NO()"'
  32.  
  33. res = result
  34. 'busy on'
  35. if res ~= '' & res ~= 'RESULT' then do
  36.   ADDRESS 'COMMAND' 'Infolist "'from_path'" >t:il files lformat %n' res
  37.   if rc = 0 then do
  38.     if open('il','t:il') then do
  39.       do while ~EOF('il')
  40.         name = readln('il')
  41.         'SelectFile "'name'" -1 1'
  42.       end
  43.       call close('il')
  44.     end
  45.     else 'request Umleitungs File war nicht zu öffnen. ??'
  46.   end
  47.   else 'request Infolist lieferte Fehler.'
  48. end
  49.  
  50. 'busy off'
  51.  
  52. exit 0
  53.  
  54.